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Some Identities Concerning the Function 

subst [x; y; z] 

C’he purpose of this paper is two-fold; l) to explore the use 
of recursion induction in proving theorems about functions of 
symbol.ic expressions, in particular 

2) to Investigate thoroughly the algebraic properties of the LISP 
function subst [x; y; z] by this method. The main result is 

i 

embodied in Theorem 8 . 

For reference, the function is defined by: 

subst [x; y; z] - [atom[z] -*• [eq[z;y] -*• x; T -* z]j T -*■ cons 

[subst[x;y;car[z]];subst[x;y;cdr[z]]]]; 

where x and z are S-expressions, and y is an atomic symbol. 

We will make the agreement that ;j*y/ 'Vnullfy]. 

In the work of this paper, dot3 (.) will often appear in 

the functional expressions. Such dots will represent superfl^eas 
material only; e.g. if we know atom [z] i 3 true we may write: 
subst[x;y;z] « [atom[z] -*■ [eq[z;y] x; T ~*z]; T “♦.]. 

Reference will be made to theorems proved on page 25 of Memo 31 — 

A Basi 3 for a Mathematical Theory of Computation by John McCarthy, 
as well as to expressions for car[x*y], cdr[x*y], and similar 
expressions on that page. 

We start by proving five lemmas: 

Lemma 1: If rj atom [u], then car[subst[x;a;u] ] » subst[x;a;car[u] ] 

and cdr[subst[x;a;uj] - subst[x;a;cdr[u]]. 

Proof: car[subst[x;a;u]J 

“ car[atom[u] T “* cons[3ubst[x; a; car[u]]; subat[x;a;cdr[u]3]] 

which, employing the hypothesis, reduces to 
- car[cons[subst[x;a;car[uj];subst[x;a;cdr[u]] ] ] 

» subst[x;a;car(u]]. 

A similar computation establishes the equality for cdr[subst[x;a;u]]. 

W- Q. E. D. 

Lemma 2 : If /vatom[u] (which insures the existence of both forms), 

then subst[x;a;cons[car[u];cdr[u]]] » 

cons[subst[x;a;car[u]];subst[x;a;cdr[u]]]. 

Proof: The left side equals subst[x;a;u] 

while the right side equals (by Lemma 1) 
cons[car[ 3 ubs t[x;a;u]]; cdr[subst[x; a; u]j) 

« subst[x;a;u] 


Q. E. D. 





Lemma 3 : If *0 atom [u] (which insures the existence of both 

forms), then subst[x;a;cons[subst.[yjb;car[u] ];subst[y;b;cdr[u] ] ] ] 

- cons[subst[x;a;subst[y;b;car[u]]]jsub 3 t[x;a;subst[y;b;cdr[u]]]]. 
Proof: Since by hypothesis a/ atom[u], then ( atom[sub3t[yjb;u]] 

follows immediately from the definition of the function subst[x;y;z], 
since ^atom[ cons[a;b] ] *» T is a basic LISP identity. Thus, applying 
Lemmal}., we may let subst[y;b;u] take the place of u in the proof of 

Lemma 2, and Lemma 3 follows'directly, using Lemma 1 once again. 

/ 

Q. £. D. 

Lemma 4: . subst[xja:NIL] » NIL 

Proof: subst[x;a;NIL] ■ [atom[NIL] "*■ Ieq[NIL;a] +* x; T “* NIL ]; T 
and since /ueq[a;NIL] by convention, this reduces to NIL. 

Q. E. D. 

Lemma 5 : If ^atom[u], then car[u] has meaning, and sub3t[x;a; 
cons[car[u]jNIL]] ■ cons [subst[x;a;car[u]];NIL]. 

Proof: The left-hand side equals: ( 

[atora[cons[car[u]jNIL]] T cons[subst[x;a; 

car[cons.[car[u];NIL]] ]jsubst[x;a;cdr[cons[car[u];NIL]] ]] ] 

■ const subst[x;a;car[u]];subst[x;a;NIL]] 

« cons[subst[x;a;car[u]];NIL] by Lemma 4. 

Q. E. 1. 

We now prove a trivial theorem: 

Theorem 1: subst[a;a;u] - u u 
Proof: subst[a;a;u] ■ •| 

[atom[u] -*■ [eq[uja] -*• a; T "♦ u]j T cons[subst[a>a>car[u]]; 

subst[aja>cdr[a.] ] ]J 

Employing the principle of recursion Induction, we consider 
f[a;u] « [atom[u] [eq[u;a] a; T-*u]; Tcons[f [a;car[u] ]; 

f[a;cdr[u]]]] 

We now note that u may be written 

u « [atom[u] [eq[u;a] -"a; T u]j T ^ cons[car[u];cdr[u]]] 

Therefore both sides of the equation satisfy the equation f[a*,u]. 

Q. E. D. 

Some comment should be made noting that f[aju] indeed converges, 
but other than* so noting, such comments will be postponed. 

We now formally define the condition that there be no occurrence*? 
of the atomic symbol a, (A^null[a]),, in the S-expression y by the 


formula 
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free[a;y3 « [atom[y] “*■ 'Veqty;a]; T ”* free [a; car[y] ] A free[a; 

cdr[y]]]. 

The main reason for introducing thi3 concept is embodied in the 
following lemma: 

Lemma 6: If free [a;y3, then subst[x;a;y3 - y. 

Proof: 3ubst[x;a;y] « [atom[y] [eq[y;a3 "*■ x; T“*y3; T -*■ 

cons[subst[x;a;car[y33jsubst[x;ajcdr[y3333 

* [atom[y] “*■ y; T “♦ constsubst[x;a;car[y] ] ;subst[x;a;cdr[y] ] ] ] 
employing the hypothesis. 

Now y - [atom[y] yj T "*■ cons [car [y] j cdr[y] 33. 

Both equations satisfy the functional equation 

fU;ajy] - [atom[yJ — y; T “*■ cons[f [x;a; car[y3 ] jf [x;aj cdr[y] 3 ] ]. 

Q. E. D. 

The next theorem states that, with certain restrictions, the order 
of substitution is irrelevant. 

Theorem 2: If*\eq[a;b],free[a;y], and free[b;x], then 
subst[xja;subst[y;b;u]] - subst[y;b;subst[x;a;u]]. 

Proof: subst[x;a;subst[y;b;u]] 

« subst[x;a; [atom[u] [eq[u;b] “ 4 ' y; T *”*■ u] j^.T “*■ cons [subst[y;b; car[u] ]; 

subst[y;b;cdr[u]3 3 3 3 

* [atom[u] “*■ [eq[u;bj “*■ subst[x;a;y]j fT - ”* subst[x;a;u]3J *p -*■ 

subst[x;a;cons[subst[y;b;car[u]];3ubst[y;b;cdr[u]]J]] v 

•" • • 

•» [atom[u] -*■ [eq[u;b] y; T "*• subs,t[xja;uJ3; T 

«'cons[subst[x;a;subst[y;b;car[u]]]j subst[x;a;subst[y;b;cdr[u]3 3 3 3 
« [atom[u] -*■ [eq[u;b] “♦ yj T “♦ [atom[u3 “♦ [eq[u;a] xj T “♦ u];T “h.. JJ;T 
cons[subst[xjaj subst[y;b;car[u]]];subst[xj a;subst[y;b;cdr[u]3 3 3 3 
- [atom[u] [eq[u;b]; -*■ yj T “■* [eq[uja] x; T^u]]; T 

cons[subst[x;a;subst[yjb;car[u]]];subst[x;a;subst[yjb;cdr[u]]]]] 
and since the'hypothesis A/eq[a;b3 implies the conditions- eq[u;b] and 
©Q[u;a3 are mutually exclusive, this can be written as: 

» [atom[u] [eq[ujq] —■ xj T -*■ [eq[ujb] yj T T -* 

cons [subst[xja;subst[y;b;car[u]]]j subst[x;a;subst[y;b;cdr[u]3 3 3 3 
but [eq[u;b3 “*■ y; T ~+ u3 Is just the expression for 
3ubst[y;bju3 given that u is atomic, so we have finally: 

- [atom[u3 r* [eq[u;a3 “*■ [eq[u;a3 x; T “*• subst[y;b;u3]; T 
cons[sub3t[x;ajsubst[y;b;car[ul3 3#subst[x;4jsubst[yjb;odr[u3 3 3 3 3 

^“employing Lemmas 3 and /6 
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Applying the same procedure to the right side of the equation, 
we find: 

■ subst[y;b;subst[xja;u]] ■ 

» [atom[u] “*■ [eq[uja]. xj T “*■ subst[y;bju] ] j T ”*• 

cons[subst[y;b;subst[x;ajcar[u]J]jaub3t[yjbjsubst[xja;cdr[u]]]]] 
as in the first three steps of this proof. Again we have 
made use of Lemmas 3 and 6. 

Clearly then, both sides of the equation satisfy the functional 
equation: 

f [a;b;x;y;u] - [atom[u] “*■ [eq[u;a]'x; T-*■ subst[y;bju] ]; T “*■ 

i 

cons[f[a;b;xjy;car[u]]jf[ajbjxjy;cdr[u]]]] 
and the principle of recursion induction yields the identity. ^ 

Q. E. D. Theorem 2 t 

. , v >’ 

\ a*-.**.'’ ' 

*>r 

Our next result states that in a certain sense, the operation 
of substitution is transitive. 

Theorem 3: If free£a;u], then 

subst[xja;subst[a;yju]] * subst[x;yju] 

Proof: subst[x;a;subst[afyTu-J] ■ 

subst[x;a; [atom[u] “*• [e^(ajy3‘ r *a; T"*u]j T “*■ cons[subst[a;y;car[u]]; 

w subst[a;y; cdr[u] ] ] ]] 

«■ [atom[u] "♦ [eq[ujy] “*■ subst[x$,a;aj;T”*subst[x;a;uJ ]; T 

subst[x;a;cons[subst[ajy;car[u]];subst[a;y;cdr[u]]]]] 

Now subst[x;a;a] « [atom[a] [eq[a;a] -+ x; T 

«x so we have, using this and Lemma 6, 
which is applicable by our hypotheses: 

» [atom[u] -*■ [eq[u;y] -*• xj T “♦ u]j T 

. t 

cons[subst[xjajsubst[a;y;car[u]]];subst[x;a;subst[ajyj cdr[u]]]]] 

(using Lemma 3 at the end) 

This form suggests considering the functional equation 
^[xjajyju] - [atom[u] -*■ [eq[ujy] x; T “*■ u]j T -+ 

cons[f[xjajy;car[u]];f[xjajy;cdr[u]J]] 

Now subst[x;y;u] - [atom[uJ -*■ [eq[u;y] “* , x;T“*'uIjT-* 

cons[subst[x;yjcar[u]J;subst[x;y;cdr[u]]]] 
so it also satisfies the functional equation, thus proving the desired 
identity. 

Q. E. D. 

Corollary: If free[a;u], then 

subst[y;a;subst[ajy;u]] » u , an intuitively obvious identity. 
Proof: By Theorem 3, with eq[xjy] 




subs t[y;a; subs fc[ a; y;u]] » 3ubst[y;y;u] 

" u (by Theorem l) Q. E. D. 

In the case of the corollary. It is not difficult to compute an 
identity without the hypothesis. In other words, the corollary could 
be proved as a special case of 

Theorem 4| subst[y; a; subst[a;y; u] ] «■ subst[y;a;u] 

for the corollary follows directly from Theorem 4 and Lemma 6. 

To prove Theorem 4: 

To Prove Theorem 4: 

m ~ ~~ m i — I —> r i i ~i i . | | i, hi-| m 

subst[y;a;subst[a;y;u]] « 

» subst[y;a; [atpm[u] [eq[u;y] a;T "■* u]; T “*• cons[subst[a;y;car[u] ]; 

subst(a;y;cdr[uj ] ] ]J 

- [atom[u] — [eq[u;y] -*■ subst[y;a;a]; T “*• subst[y;a;u]]; T “*■ 

subst[y;a;cons[subst[a;y;car[u]];subst[a;y;cdr[u]]]]] 

and since subst[y;a;a] - y, as noted in the proof of Theorem 3, we have 
" £&tom[u] -*■ leqlu; y] y; T [atom[u] -*■ [eq[u;a] -tyj T"*u] ;T . J]; T 
subst[y;a;cons[subst[a;y;car[u]];subst[a;y;cdr[u]]]]] 

" [atom[u] “*■ [eq[u;y] -*■ u; T “*• [eq[u;a] “*• y; T ujl; T “*■ 

cons[subst[y;a;subst[a;y;car[uJ]];sub3t[yja;sub3t[a;y;cdr[u]]]]] 

(by Lemma 3) 

“ [atom[u] -* [eq[u;a] -* y; T -*■ u]; T -* ■ 

cons[subst[y;a;subst[a;y; car[u]]]jsubst[y;a;3ubst[a;y;cdr[u]]]]] 

Now subst[y;a;u] » [atom[u] “*■ [eq[u;aj —*■ y; T“*u];T“*cons[subst[y;a;car[u]]; 

subst[y;a;cdr[u]]]] 

so that both forms satisfy 

f[a;y;u] » [atom[u] [eq[u;a] y; T “*■ u]; T cons[f[ajyjcar[u]]; 

f[ajy;cdr[u]]]] 


Q. E. D. 

At this point we introduce the concatenation x*y of two lists x and y, 
as defined on page 25 of the report.mentioned earlier. For convenience, 
the definition and two identities from that paper are reproduced below: 
x*y =*[null[x]“ty; T -*■ cons[car[x];cdr[x]*y] ] . 
car[x*y] « [null[x] -*car[y]; T-*car[x]J 
cdr[x*y] = [null[x] -*edr[y];T — cdr[x] *y] 


In the work done so far, we have always made the tacit assumption 
that our expressions are well-defined. For example; whenever 
subst[x;y;^J has appeared in the statement of a theorem, y has 
automatically been assumed to be atomic. (Also we have made the blanket 







assumption that^null[y].) Since the concatenation is only defined 
for true lists, we will make similar tacit assumptions. For 
instance, in the statement of the next theorem u and v are 
automatically assumed to be true lists. 

Theor e m 5 .: subst[x;a; u] * subst[x;a;v] *■ 3ubs t [x; a; u*v] 

In words, the operation of substitution i3 distributive over 
concatenation. 

Proof: sub3t[x;a;u]*subst[xja;v] 

* [null[subst[x;a; u] ] sub3t[x;a;v]; T “*■ cons[car[subst[x;a; u] ]; 

cdr[subst[x;aju]]*sub3t[x;a;v]]] 

- [null[atom[u] [eq[uja] xj T^u]; T cons[subst[x;a;car[u]]; 

3ubst[x; a; cdr[u] ] ] ] ”*■ subst[x;a; v]; T cons [car [ 
subst[x;a;u]cdr[subst[x;aju]]*sub3t[xja;v]]] 

« [atom[u] [eq[u;a] “*■ [....]; T “*■ [null[u] subst[x;a;v]; T 
j cons[car[subst[x;a;u]];cdr[subst[xj a;u]]*subst[x;a;vj J]]; 

! 'T [null[cons[subst[x;a;car[u] ];subst[x;a;cdr[u] ] J ] subst[x;ajv]; 

T cons[car[subst[x;a;u] ] j cdr[subst[xj a;u] ] *subst[x; a; v] ] ]] 

Now noting that l) for true lists atom[u] implies null[u] 

2) null[u] implies by convention o^eq[u;a] 

3) A/null[u] implies/xynull[cons[subst[x;a;car[u] ]; 

subst[x;a;cdr[u] ] ] ] 

(perhaps 3) is too obvious to notel) 

|the above awesome expression reduces to: 

I 

" [null[u] ”*■ subst[x;a;v]j T cons[car[subst[x;a;u]]; 

cdr[subst[x;aju] ]*sub3t[x;a;v] ] ] 

and applying Lemma 1,again remembering Ay null[uj is equivalent to 
✓vatom[u] for true lists; 

= [null[u] “+ substfxjajv];- T cons[subst[xja;car[u] ]; 

subst[x;a;cdr[u]J*subst[x;a;v]]] 

This suggests the functional equation 

f£x;a;u;v] = [null[u] sub3t[xj a; v]; T cons [ subs t[x; a;car[u] ]; f [x; a; cdr[u]: 

. ». 

f ["x; a ; edr fuj ; 3 ] 

Now examining subst[xja;u*v] 

=* substfx; a; [null[u] vj T ”*■ cons [car [u] ;cdr[u] *vin ] 

“ [null[u] -*■ subst[xja; vj; T sub3t[x;a;cons[car[u];cdr[u] *v] ] ] 
but in the case a, null [U]; car[u] - car[u*v] ’ 

cdr[uj*v ** cdr[u*v] 

so we have 


- [null[u] 


subst[x;a;v]; T 


subst[x;a;cons[car[u*v] ;cdr[u*v]]]] 
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but in the case a/null[u], 
so we have 


car[u] «=* car[u*v] 
cdr[u]*v » cdr[u*v] 


®-[null[u] — 3ubst[x;a;v]; T “*■ subst[x;a;con3[car[u*v]; cdr(u*v]]]] 
and since aJ null[u] implies atom [u*vj; Lemma 2 yields 
“ [null[u] -*■ subst[x;a; v]; T “♦ cons[subst[x;a;car[u*v] ]; 

subst[x;a;cdr[u*v] ] ] ] 
or = [null[u] “*• subst[x;a;v]; T “♦ cons6sub3t[x;a;car[u]]; 

subst[x;a;cdr[u] *v] ] ] 

which also satisfies the equation f[x;a;u;v] 




E ‘ “-Theorem ' 

Theorem 6: subst[x;a;rev[u]] « rev[subst[x;a;u]] 

where rev[u] is the function, whose domain is again true lists, 
defined on page 26 of the previously mentioned paper by 
rev[u] ** Inull[u] "♦'NIL; T “♦ rev[cdr[u] ] * cons [car[uj; NIL]] 

Proof: subst[x;a;rev[u]] 

“ subst[x;aTfnull[u] "♦ NIL; T "♦ rev[cdr[u]]*cons[car[u];NIL]]] 

*■ [null[u] "*■ subst[x;a;NIL]; T “♦ subst[x;a;rev[car[u]]*cons[car[u];NIL]]j 
* (by Lemma 4 and Theorem 5) [null[u] -*• NIL; T -♦ 
subst[x; a;rev[cdr[u]]]*subst[x;a;cons[car[u];NIL]]] 

" (by Lemma 5) [null[u] NIL; T "♦ subst[x; a; rev[cdr[u] J ] * 

cons[subst[x;a;car[u]];NIL]] 

Looking now at rev[subst[x;a;u]] 

“ [null[subst[x;a;u] ] "♦NIL; T "♦ rev[cdr[subst(x;a;u] ] ]* 

cons[car[3ubst[x;a;u]];NIL]] 

which by reasoning identical to that presented in great detail in the 
proof of Theorem 5 is equivalent to: 

* [null[u] "♦NIL; T “♦ rev[subst[x;a;cdr[u] ] ] *cons[ 

subst[x;a; car[u] ] ;NIL] ] 

(using also Lemma l) 

Both expressions under consideration are then solutions of 
the functional equation 

P(x;a;a] » [null[u] "♦ NIL; T “♦ f [x;a;cdr[u] ]*cons[subst[x;a;car[u] ];NIL] ] 


H P 

• L * ^‘Theorem 6 


We now turn to the second major part of this paper. Having 
discovered the' algebraic properties of subst(x;y;z], we now wish to 
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undertake an investigation on 
we will consider, the behavior 


a slightly different level. In particular, 
of Gubst[x;y;z] on operations which are 


distributive over concatenation. 

Firstly, the set of functions' of true li3ts which are 
distributive over concatenation is non-empty. 


Consider the function defined by: • 

sq[u] » Ihull[u] -*• NIL; T “*■ const car [u]; cons [ car [u]; NIL] ]* sq[cdr[u] ] ] 
sq[u] might best be described by an example: 

sq[ (A, (B,C),C)]-(A,A, (B,C), (3,C),C,C) , 

Le mma 7 • IfA/null[u], then oartsqtu]] - car[u]. 

Proof: car[sq[u]] 

= car[null[u] “♦NIL; T “+ cons [car [uj; cons [car [u]; NIL] ] * sq[cdr[u]33 
» car[cons[car[u]; cons£car[u];NIL]]* sq[cdr[u]]] 

= [.null [const.]] "♦...fl'j T car[ cons [car[u]; const car [u]; NIL] ]] ] 

= car[u] 

Le ; Q* E. D. 


f i 

Lemma "8: If /v-a*3£[u] , then cdr[sq[u]] » cons[car[u] ;NIL] *sq[cdr[u] ]. 

t 

Proof: cdr[sq[u]] 

= cdr[ null [u] “► NIL; T “♦ cons [car [u]; cons [ car [ u]; NIL] ] *sq£cdr[u] ] ] 

■= cdr[cons[car[u];cons[car[u];NIL] ]* sq[cdr[u]]] 

» [null[cons[...J] ... J; T “♦ cdr[ const car[uj; cons [car [u]; NIL] 3 3* 

sq[cdr[u]]] 

*» cons[car[u];NIL] *sq[cdr[u] ] Q* E. 

Lemma 9. : ' sq[cons[u; v] ] » const u; const u; NIL]] *sq[v] 

Proof: sq[cons[u;v]] 

» [null[cons[u, vj ] “♦ ...; T “*■ cons[car[cons[u;v]3;constcar[cons[u,v]3;NIL}] 

*sq[car[cons[u;v]3]3 

= cons[u;cons[u;NIL]]* sq[v] Q. E.L. 

Before proceeding, we note that Theorem 11 of the previously mentioned 
paper of McCarthy proves the associativity of the operation of concatena 
and therefore the notation x * y * z introduces no ambiguity. 

Theorem 7♦ sq[u*v] = sq[u]* sq[v] 

Proof: ; ' 

sq[u*v] » sq[null[u] -*■ vj T “+ eons[car[u3;cdr[u]*v33 
* [null[u] “♦ sq[v]; T “* sq[cons[car[u3;cdr[u}*v]3] 

» (by Lemma 9)* [null[u] ”♦ sq[v]; T “♦ 

cons[car[u];cons[car[u];NIL]3* sq[cdr[u]*v]3 
and sq[u]*sq[v] 

[nulltsqtu]] “♦sq[v]; T cons[car[sq[u]];cdr[sq[u]]*sq[v]]] 


xs 


-XT 
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= [null[null[u] NIL; T “*• cons [... ] ] ~*'sq[v]; T con3[car[u]; 

cons[car[uj;NIL]* sq[cdr[u]] * sq[v]]] 
by Lemmas J and 8; and now since null[const...]] » F, this 
reduces to 

= [null[u] “* , sq[v]j T “*• cons[car[u]; const car[u] j NIL] * sq[cdr[u] ] *sq[v] ] ] 
To be precise, we need a lemma: 

Lem ma 10: If null[u], then oons[x;u*v] ■ cons[x;u]*v. 

Proof: cons[x;u]*v 

a [null[cons[x;u] ] T “*■ cons [cartoons [x; u] ]; cdr[ cons [xj u] ] *v] ] 

- cons[x;u*v] . _ ^ 


-U ^ E# D< 

Applying Lemma 10 in the proof of Theorem 7> we obtain: 
sq[u]*sq[v] 

*» [null[u] ** 4- sq[v]; T ~+ const car[u]j cons [car [u]; NIL] ] * 

sq[cdr[u]]*sq[v]] 

and both forms satisfy the equation 

f[u;v] „ Jnuiitu] “*■ sq[v]; T *■* cons [car [u] j cons [car[u]; NIL] ] * 

2?[cdr[u]; v] ] 

^ •'idi t ^ ® ^ * mu u 


Lemma 10 


* Theorem 7. 

Thus the function sq[u] is distributive over concatenation. 

Instead of proving directly that subst[x;a;sq[u]J « sq[subst[x;aju]], 
we will firove the following more general result: 

I 

Theorem 8: If f is a function whose domain and range are true list3, 
with the equation defining f containing no "constants," such that 
f[u*v] » f [u] *f [ v], and such that 
/v/[null[f [u] ] A/\^null[u] ], then 

subst[xja;f [u] ] - f [subst[x;aju] ]. 

(The assumption that the equation defining f contains no constants is 
discussed after the proof of the Theorem. It is imprecisely stated and 
undoubtedly open to criticism. Also, it is a hypothesis of a different 
nature than the others, for it is not used explicitly in the proof but ■ 
rather to emphasize the exclusion of situations such as the one that 
will be discussed later in this paper.) 


Proof: We first list five facts, 3ome of which have been noted 
earlier, to which we will refer in the course of this proof: 

a)A/null[(t a ] ig always assumed, by our convention about substtxjaju]. 
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b) For true lists, atom[u] implies null[u]. 
o) With the hypotheses of thi3 Theorem, we actually have the 
situation null[f[u]] if and only if null[u]. The case null[f[u]] 
only if null[u] is assumed directly; the converse follows from the 
distributivity of f over concatenation, for if null[u], then 
f[u] »« f[NIL] ■ flNIL*NIL] (since NIL*u - u follow immediately from 
the definition of concatenation) - f[NIL] * f[NIL] ■ f[u]*f[u], and 
this can only be true if we have null[f[u]J. Therefore we freely 
substitute null[u] for null[f[u]], and vice versa . 

&) If~null[u], then u - cons[car[u];NIL]*cdr[u]. Thi3 is so 
because cons[car[u];NIL]*cdr[u] 

» [null[ const...] ] “♦...; T “* const car[ cons [car[u]j NIL]]; 

cdr[constcartu]j NIL]]* cdr[u]]] 

- const cartu]; NIL * cdr[u]] 

« cons[cartu]; cdr[u]J since NIL*u> u, 

» u 

e) If/vnull[u], then/vnull[subst[x;a;u] ] (u a true list). 

This follows directly from the equation defining subst[x;a;u]. 

,«■ » 

We now begin the actual proof: substtx;a;flu]] 

* [atom[f [u] ] -» [eq[f [u];a] “♦ x; T f [u] ]; T “♦ cons[subst[x;a;car[f [u] ] ] *- 

subst[x;a;cdr[f[u]]]]] 

» [null[f[u]] -*-f[u]; T cons[subat[x;a;car[f [u] ]];subst[x;a;cdr[f[u]] ] ] 3 

by b) and a); we now apply d) to the argument of f in the 
expressions car[f[u]] and cdrtf[u]]. (We can do thi3 by c), since 
we are in the case r^j null [f J(u] ].), and we obtain 

» [nulltf[u] 1 *"*■ f[u]; T cons[substCx;a;car[ftconstcar[u];NI]Ii]*cdr[u]]] ]; 

* * - , v 

subst[x;a;cdr[f[cons[car[u]; NIL]* cdr[u]]]]]] 

« [null[f[u]] -* f[u]; T -+ cons[subst[x;a;cdr[ftcons[carfu];NIL]]*f[cdr[u]]]]; 

subst[x;a;cdr[f[constcar[u];NIL]]*f[cdr[u]]]]]] 
by .the distributivity of f over concatenation, 

* [null[f [u]] "♦ftu]; T “♦ cons[subst[x;a;car[f [cons[car[u] ;NIL] ] ]}; 

subst[x;a;cdr[f[cons[car[u];NIL]]]* f[cdr[u]]]]] 
by the Identities for car[x*y] and cdr[x*y], which are applicable in 
this form because^f the hypothesis on f, which Insures that 
*v null[constcartu];NIL]] (which is certainly true) implies 
<vnull[f[cons[car[u];NIL]]]. Now, applying Theorem 5, we have 
= [null[f t u] ] “♦ftu]; T "♦ cons[subst[x;a;oar[f [cons[car[u];NIL]]I; 

subst[x;a;cdr[fCcons[oar[u];NIL]]]]*subst[x;a;ftcdr[u]]]]] 

» [null[u] “♦ftu]; T “♦ const cart subst[x; a; f [constcar[u] ;NIL] ] ] ]; 

cdr[substtx;a;f [cons[car[u];NIL]]]]*subst[x;a;f [cdr[u]] ] ] ] 



JLJL 


by Lemma ljwe also substituted null[u] for null[f[u}], a3 allowed by c); 
but this is now seen to be 

= [null[u] -*• f [u] j T 3 ubst[x;ajf [cons[car[u] j NIL] ] ] *subst[x;a;f[cdr[u3 ] ] ] 

This last step follows because we had an expression of the form 

cons[car[u] jcdr[u] *v] with /v hull[u] (by e), which was 

applicable by the hypothesis on f, as 
noted three steps previously) 

= cons[car[u*v];cdr[u*v]] - u*v 

f 

S3 U*V - 

The expression for subst[x;a;f [u3 3 is now in the desired form, for we 
define a functional equation by 

F[x;a;u] * [null(u] -*-f[u3; T F[x;a;cons(car[u];NIL] ] *F[x;a;cdr[u] ] ]. 

Now to work on f [subst[x;a;u3 3, which can be written 
■f-[atom[u] [eq[.uja] xj T “*• u]; T~*- 

cons[subst[x;a;car[u] ] ;subst(x;aj cdr[u] ] ] ] 

* [null[u] [eq[u;a] “*■ ..., T - f [u] ] j /T- f [cons[subst[xj a;car[u] ]; 

sub3t[x;a;cdr[u]]]]] ! 

• by b) and a), ' 

» [null[u] -*f[u3s T f [cons [subst[x;ajcar[u} ] jsubst[x;a; cdr[u] 3 3 3 3 . 

■Actually, we need only write this in the following form: ■ 

» [null[u] -►f[u}j T-*• f[subst[xja;u]]] justifying this seemingly 
backwards step by Lemma 1. Now, replacing u by subst[xjaj;u] 
in d) which we can do by e), since we are in the case a/ null[u], we 

w y 

obtain 

« [null[u] f [u] j T ”*■ f [cons[car(subst[x;aju] 3 jNIL] *cdr[subst[x;a;u] 3 ] ] 

- [.null[u] -*-f[u]j T f [cons[subst[x;a;car[u] 3jNIL]*subst[xjajcdr[u] ] ] 3 

by Lemma 1, 

= [null[u] “*-'f[u]jT f [subst[x;a;cons[car[u] jNIL] ] *subst[x;a; cdr[u] ] ] 3 

by Lemma 5, 

- [null[u3 - f[u.>;S? - f[subst[xja;cons[car[u3jNIL33)*f[3ubst[x;a;cdr[u3 3 3 3 

by the distributivity of f over concatenation. 

Thus f[substfx;a;u33 also can be transformed into the required form 
satisfying the functional equation F[xja;u3, and,the proof of Theorem 8 

13 Q. E. D. 

The proof of Theorem 8, though lengthy, is a good example of the 
method and application of recursion induction. A few comments should 
be made about the particular content of this theorem and its proof. 

1) The result is non-intultive, at least more so than the other, 

more specific results of this paper. 

2) The function sq[u3 satisfies the hypotheses of Theorem 8, for 
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it is distributive over concatenation by Theorem J, and null 3q[u] implies 
null[u], as noted in the body of the proof of Theorem 7. Therefore we ^ 
have the corollary: sub3t[xjajsq[u]] ■ sq[subst[x;a;u]]. 

3. We must be careful about our definition of a function whose domain is 
true lists; sq[u] certainly suffices, but problems may arise. The next 
section of this paper is devoted to this topic. 

Consider the simple minded function which inserts the list u before 
every element of a list v. For example,if (^, (A,B),C) were v, and u 
were (D,E), we would obtain 
(D,E,A,D,E,U,B),D,E,C). 

Such a function could perhaps be considered as a function merely of 
the list v, for the list u is fixed. (The list u plays the role of the 
“constant” mentioned in the statement of Theorem 8.)“ 

As such, the function would satisfy the hypotheses of Theorem 8, for it 

will be seen (Theorem 9) that it is distributive over concatenation, 

and the condition ^[null[f[u]] A/vnull[u]] will be satisfied by 

the formulation of the definition of our function. Yet the conclusion 

of Theorem 8 is not valid in this case. (This will follow from Theorem 10.) 

The reason is that the function is not merely a function on lists v 
but on lists u and v.; i.e., its domain is the cartesian product of the 
space of true lists with itself. 

The tale is told of the freshman who asked why we do not.write 
f(3,x) ■ 3x instead of f(x) - 3x. The answer to his question is that 3x 
is merely an abbreviation for the operation x + x + x; or expressed 
in different words, the notation can be justified by the fact that 
polynomials in one indeterminate with coefficients in the real numbers 
indeed form a ring* In oar. example we have np such abbreviation, no 
■such algebraio structure. Thus we cannot suppress the u, and we 

must define: 

, • * 

simf[u,v] - [riull[v] "♦NIL; T "*■ u*cons[car[v] jNIL]*slmf [u;cdr[v] ] ] 
as our function. We will assume u is also a true list, and/\mull[u]. 

We will now prove the Theorems 9 and 10 referred to above. First 
we need three lemmas. 

Lemma 11: If ~null[v], then caftsimf[u;v]] » car[u] 

Proof: car[simf[u;v]] « . ^ _ 

■ car[null[v] -+ T r* u * oons[car[v], NIL] * simf[ujcdr[v] ]3 
** car[u * ....] » car(u] (since ^null[u] by convention) 

A W ^ 


car[u] 






Q. E. B. 


Lemma 12: If/vnull[v], then cdr[ 3 imf[u;v] ] 


*1 V . C«v„ 4; 4* v« 




♦V WW* tv *' * .4 




Lemma i:?: If/vnullfv], then cdr[simf[u;v]] - 
cdr[u]*con3[car[v]jNIL]*simf[ujcdr[v]] 

Proof: cdr[aimf[u;v]] » 

= cdr‘null[v] — T “* u*cons[car[v] ,NIL]*simf [u;cdr[v] ] ] 

* cdri.u*cons[car[v] jNIL] *simf[u;cdr[v] J ] 

= cdr[u]*con3[car[v]jNIL]*3imf[ujcdr[v]] 

Q. E. D. 

Lemma lj:_ simf[ujconsfvjw]] - u* cons[v;NIL]*simf[ujw] 

Proof: simf[u;cons[v;w]] 

= [null[cons[...]] **♦ T *-*■ u * cons[car[cons[vjw] ] jNIL] 

* simf[ujcdr[cons[vjw]]]] 

=* u * cons[vjNIL]*3imf[ujw] q # e. d. 

Theorem 9: simf[u;v*w] « simf [u; v] *simf [ujw] 

Proof: simf[u;v*w] 

- simf[uj[null[v] -* w; T cons[car[v];cdr[v]*w]]] 

" [null[v] “■* simf [ujw] j T *"*■ simf [uj cons [car [v] ;cdr[v]*w] ] ] 

=* [null[v] simf[u;w]j T -* u * cons[car[v]jNIL]*slmf[u;cdr[v]*w]] 
by Lemma 13} 
and simf[u;v]*simf[u;w] 

■ [ null [ simf [ujv] ] simf [ujw]; T const car [simf [u;v] ] j 

cdr[simf [u; v] ] *simf [ifjw] ] ] 

® [null[null[v] NIL; T.“+u*.. # ] -♦ simf[u;w]; T “*• cons [car [u] j 

cdr[u]*cons [car[v];NIL]*simf[ujcdr[v]]*simf[ujw]]] 
by Lemmas 11 and 12; and since^Vnullfu] by convention, 

■ [null[v] simf [ujw]; null[u*...] -*■ T u*cons[car[v] jNIL] 

*simf[ujcdr[v] ]*simf[ujw] ] 

since we had an expression of the form cons[car[u*v];cdr[u*v]], 

" [null[v] “*• simf [ujw] j T *-*’ u*cons[car[v]jNIL] * 3 imf [uj cdr[v] ] *simf [ujw] ] 

Thus-both sides satisfy the functional equation 

ftujvjw] « [null[v] -*■ simf[u;w];T -* u*cons[car[v]; NIL]*fIujcdr[v];w]] 

This establishes the disfcributivity of this Insertion operation 
over concatenation. Q. E. D. 

Theorem 10: subst[x;a;simf[u;v]] - simf[subst[xja;u]jsubst[x;a;v]] 

Proof: subst[xjaj'i$Sfr?nf [uj v] ] 

- subst[xja;[null[v] NIL; T -t u*cons[car[v]jNIL]*simf[u;cdr[v]]j] 

» [null[v] -*• subst[x;a;NIL]j T *“*■ subst[xja;u*con3[car[v]jNIL] *simf [ujcdr[v] ] ] ] 
» [null[jv] "♦.NIL; T “*■ subst[xja;u]*subst[xja;cons[car[v];NIL]]* 

substtxj^jslmf fujpdrf v] ] ] ] 
by Lemma 4 and repeated application of Theorem 5. 
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[null[v] “*• NIL; T 


’ %' * '♦ 


This suggests the functional equation: 

f[x;a;u;v] = [null[v] -*■ NIL; T “♦3ubst[x;a;u] *subst[xja;con 3 [car[v];NIL] ] 

* f[x;ajujcdr[v]]] 

We havesimf[aubst[xja;u];3ubst[xjajv]] 

“ [null[3ub3t[xjajv]] "♦ NIL; T “* sub3t[xja;u]*cons[car[sub3t[xja;v]]j NIL] 

NIL] # simf [subst[xja;u]j cdr[subst[x;ajv]]]J 

* sub3t[x;aju] * con3[aubst[xjajcar[v]]jNIL] 

# simf[subst[xjaju]jsubst[xja;cdr[v]]]] 

by reasoning analogous to that presented in detail in Theorem 5 , 
and by Lemma lj 

= Cnull[v] -*■ NILj T subst[xja;u] # subst[xjajcons[car[v];NIL] ] 

* simf[sub3t[x;a;u];subst[x;a;cdr[v]]]] 

by Lemma 5* 

This also satisfies the functional equation. 

Q» E. D. 

Theorem 10 

Thi 3 completes the work of this paper. One comment alone remains, 
and that concerns convergence of the functional equations defined. In 
this paper they are all of two forms: 

; 1) (u an S-expression) f[...;u;..] »[atom[u] T-%[,’^.*if[...jcarCu];i] 

gC...;f [...; car [u] cdrCuJ 

^f[.. .;cdr[u];...]j.V.]]- >\ 

2) (u a true list) f[...juj..] - Enull[u]^ . .;T: ; f [... jcdrEu]; 

gCf • • jf C.. • jcdrfu] j.. .3 J] 

where the other arguments of g are well defined specific functions which, 
if they are recursive functions, are known to converge under, the 
conditions <vatom[u] orA/null[u] respectively.g g itself is a specific 
function which converges under these conditions as long as each of its 
arguments is well defined. Thus it is the construction (or definition) 

S-expressions and true lists whilh in the long run Insures the 
convergence of the functional equations. Any need for a more rigorous 
formulation of convergence for the purposes of this paper is doubtful, 

but one must be aware of the problem of convergence whenever working 
with recursion induction. 


*« 
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